Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/learnvb5/exercise.frm

Text File | 1998-04-18 | 14KB | 451 lines

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.1#0"; "COMDLG32.OCX"
Begin VB.Form frmStudent
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Student Profile"
   ClientHeight    =   4485
   ClientLeft      =   1185
   ClientTop       =   1515
   ClientWidth     =   6690
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   4485
   ScaleWidth      =   6690
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame Frame3
      Caption         =   "Picture"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3252
      Left            =   4560
      TabIndex        =   20
      Top             =   720
      Width           =   1932
      Begin VB.CommandButton cmdLoad
         Caption         =   "&Load Picture"
         Height          =   492
         Left            =   360
         TabIndex        =   23
         Top             =   2640
         Width           =   1212
      End
      Begin VB.Image imgStudent
         BorderStyle     =   1  'Fixed Single
         Height          =   2292
         Left            =   120
         Stretch         =   -1  'True
         Top             =   240
         Width           =   1692
      End
   End
   Begin VB.CommandButton cmdExit
      Caption         =   "E&xit"
      Height          =   492
      Left            =   2760
      TabIndex        =   19
      Top             =   3720
      Width           =   1092
   End
   Begin VB.CommandButton cmdNew
      Caption         =   "&New Profile"
      Height          =   492
      Left            =   2760
      TabIndex        =   6
      Top             =   3120
      Width           =   1092
   End
   Begin VB.CommandButton cmdShow
      Caption         =   "&Show Profile"
      Height          =   495
      Left            =   2760
      TabIndex        =   5
      Top             =   2520
      Width           =   1095
   End
   Begin VB.Frame Frame4
      Caption         =   "Grade Level"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2532
      Left            =   120
      TabIndex        =   4
      Top             =   1800
      Width           =   1932
      Begin VB.OptionButton optLevel
         Caption         =   "Grade 6"
         Height          =   255
         Index           =   5
         Left            =   120
         TabIndex        =   22
         Top             =   2160
         Width           =   1335
      End
      Begin VB.OptionButton optLevel
         Caption         =   "Grade 5"
         Height          =   255
         Index           =   4
         Left            =   120
         TabIndex        =   21
         Top             =   1800
         Width           =   1335
      End
      Begin VB.OptionButton optLevel
         Caption         =   "Grade 4"
         Height          =   255
         Index           =   3
         Left            =   120
         TabIndex        =   18
         Top             =   1440
         Width           =   1335
      End
      Begin VB.OptionButton optLevel
         Caption         =   "Grade 3"
         Height          =   255
         Index           =   2
         Left            =   120
         TabIndex        =   17
         Top             =   1080
         Width           =   1215
      End
      Begin VB.OptionButton optLevel
         Caption         =   "Grade 2"
         Height          =   255
         Index           =   1
         Left            =   120
         TabIndex        =   16
         Top             =   720
         Width           =   1335
      End
      Begin VB.OptionButton optLevel
         Caption         =   "Grade 1"
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   15
         Top             =   360
         Value           =   -1  'True
         Width           =   1215
      End
   End
   Begin VB.Frame Frame2
      Caption         =   "Sex"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1095
      Left            =   120
      TabIndex        =   3
      Top             =   600
      Width           =   2055
      Begin VB.OptionButton optSex
         Caption         =   "Female"
         Height          =   255
         Index           =   1
         Left            =   120
         TabIndex        =   14
         Top             =   720
         Width           =   1695
      End
      Begin VB.OptionButton optSex
         Caption         =   "Male"
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   13
         Top             =   360
         Value           =   -1  'True
         Width           =   1695
      End
   End
   Begin VB.Frame Frame1
      Caption         =   "Date of Birth"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1815
      Left            =   2400
      TabIndex        =   2
      Top             =   600
      Width           =   1935
      Begin VB.VScrollBar vsbYear
         Height          =   375
         Left            =   1560
         Max             =   1800
         Min             =   2100
         TabIndex        =   12
         Top             =   1320
         Value           =   1960
         Width           =   255
      End
      Begin VB.VScrollBar vsbDay
         Height          =   375
         Left            =   1560
         Max             =   1
         Min             =   31
         TabIndex        =   11
         Top             =   840
         Value           =   1
         Width           =   255
      End
      Begin VB.VScrollBar vsbMonth
         Height          =   375
         Left            =   1560
         Max             =   1
         Min             =   12
         TabIndex        =   10
         Top             =   360
         Value           =   1
         Width           =   255
      End
      Begin VB.Label lblYear
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   1  'Fixed Single
         BeginProperty Font
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   120
         TabIndex        =   9
         Top             =   1320
         Width           =   1455
      End
      Begin VB.Label lblDay
         Alignment       =   2  'Center
         BackColor       =   &H00FFFFFF&
         BorderStyle     =   1  'Fixed Single